home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 19 Adventure Games / DOMTWO.BIN / BOARD (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.1 KB  |  34 lines
  1. 100 REM *******************************
  2. 110 REM *****    BOARD        *********
  3. 150 REM *******************************
  4. 175 POKE783,0:POKE808,237:POKE657,128
  5. 200 :
  6. 350 PRINT"[147][157] ":PRINTCHR$(28)
  7. 355 FORI=1024TO1984STEP40:POKEI,66:NEXTI:POKE1984,109
  8. 360 FORI=1985TO2023:POKEI,67 :NEXTI:POKE2023,125
  9. 362 FORI=1983TO1063STEP-40:POKEI,66 :NEXTI:POKE1063,110
  10. 363 FORI=1062TO1024STEP-1:POKEI,67 :NEXTI:POKE1024,112
  11. 364 FORI=1040TO1520STEP40:POKEI,66:NEXTI:POKE1040,114
  12. 365 FORI=1504TO1543:POKEI,67 :NEXTI:POKE1504,107:POKE1520,113:POKE1543,115
  13. 366 FORI=1824TO1863:POKEI,67 :NEXTI:POKE1824,107:POKE1863,115:POKE53282,3
  14. 367 GOTO371
  15. 368 FORI=1544TO1824STEP40:POKEI,32:NEXT:POKE1504,74:POKE1824,85
  16. 369 FORI=1583TO1863STEP40:POKEI,32:NEXT:POKE1543,75:POKE1863,73
  17. 371 POKE1842,114:POKE1882,66:POKE1922,66:POKE1962,66:POKE2002,113
  18. 380 POKE53280,0:POKE53281,0
  19. 381 FORI=1TO200:NEXT:GOTO390
  20. 382 PRINT"[153]";TAB(24)"[129]NORTH/[159]F1[153]"
  21. 384 PRINT"";TAB(17)"W[157][159]F[157]3[153]"
  22. 386 PRINT"[145][145][145]";TAB(38)"E[157][159]F[157]5[153]"
  23. 388 PRINT"";TAB(26)"S/[159]F7"
  24. 390 FORI=1TO200:NEXTI
  25. 392 PRINT""
  26. 394 PRINTTAB(1)"[159]< >PLAYER ADVANCE [159]< >CHANGE[159]< >WEAPONS"
  27. 396 PRINTTAB(1)"[159]< >PAUSE GAME     [159]< >RUN   [159]< >SPELLS"
  28. 398 PRINTTAB(1)"[159]< >SAVE GAME      [159]< >CHECK ROOM[159]"
  29. 400 :REM ***** START OF PLAY *****
  30. 410 POKE44,75:POKE169,13
  31. 420 PRINT""
  32. 430 PRINT"[144]RUN[145][145][145]":POKE198,1:POKE631,13
  33. 440 END:REM *** GO TO ROOMS ***
  34.